(rmail-insert-inbox-text): Call expand-file-name before

substitute-in-file-name to handle double slashes in FILE correctly.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 400f2ecee2c9f1fad8ad70b2e97d13ad65667431..927ac482bba46a54d03dbf65875704ee6b910e9c 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1376,7 +1376,7 @@ It returns t if it got any new messages."
       (if popmail
          (setq renamep t)
        (setq file (file-truename
-                   (expand-file-name (substitute-in-file-name file)))))
+                   (substitute-in-file-name (expand-file-name file)))))
       (setq tofile (expand-file-name
                    ;; Generate name to move to from inbox name,
                    ;; in case of multiple inboxes that need moving.